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ABSTRACT 

AUTO: An Automaton Simulator, a program implemented under 
IBM 360/67 TSS, is capable of simulating any user-defined deter- 
ministic or nondete rministic finite automaton, pushdown automaton, 
Turing machine or procedural Turing machine. The simulation is 
achieved through the use of two pushdown stacks and a single finite 
control. This approach provides efficient simulation and avoids the 
programming duplication required to simulate each type of automata 
separately. Interactive capabilities make the system particularly 
well suited to the online design, modification, and testing of user- 
defined automata. 



2 



TABLE OF CONTENTS 



I. INTRODUCTION 4 

II. SYSTEM DESCRIPTION 5 

A. THE SIMULATOR 6 

B. THE SIMULATION - 7 

1. The Finite Automaton (FA) 7 

2. The Pushdown Automaton (PDA) 8 

3. The Turing Machine (TM) 9 

4. The Procedural Turing Machine (PTM) 9 

C. NONDETERMINISTIC AUTOMATA 10 

D. HALTING THE SIMULATION 11 

III. CONCLUSION 14 

APPENDIX A . USER'S MANUAL FOR AUTO 15 

SAMPLE TERMINAL SESSION - 20 

AUTOMATON SYNTHESIZER PROGRAM 34 

BIBLIOGRAPHY 49 

INITIAL DISTRIBUTION LIST 50 

FORM DD 1473 51 



3 



I. INTRODUCTION 



The objective of this research was to devise an aid for the 
teaching of formal languages and automata theory. The system 
developed allows the student to design, test, and change automata in 
an interactive manner. This process permits the user to observe the 
step by step operation of a defined automaton and if desired, to 
correct or alter its operation. This eliminates the need for lengthy 
and tedious hand simulations. 

AUTO: An Automaton Simulator, can simulate the operation of 
deterministic and nondete rministic finite automata, pushdown auto- 
mata, Turing machines, and procedural Turing machines. Since the 
system is capable of simulating several different types of automata 
with only one interface, it eliminates the duplication of effort required 
by separate simulations of each type of automata. 
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II. SYSTEM DESCRIPTION 



AUTO is a deterministic automaton which can, by performing 
transformations on the rules of any given automaton, simulate that 
automaton. Since each procedure performed by any automaton can 
be performed by a Turing machine, then theoretically it is only 
necessary to simulate a Turing machine in order to have the cap- 
ability of simulating any automaton. The simulation of a Turing 
machine can be done by a deterministic, two pushdown machine. It 
is easily seen that those symbols to the left of the head of the Turing 
machine being simulated can be stored on one pushdown list, while 
the symbols on the right of the head can be placed on the other push- 
down list. AUTO, using two pushdowns, can also simulate other 
types of automata more effectively then the Turing machine, since 
when conducting a simulation, Turing machines often carry out their 
computations most inefficiently. 

AUTO is designed so that at all times the two pushdown simulator 
remains invisible to the user. The user is unaware that he is using 
a simulator, but feels rather that he is interacting directly with the 
automaton which he has created. This feature is maintained during 
the input, operation, and output phases of the simulation. The ad- 
dition of new interfaces or modification of the present ones would 
allow the simulation of other types of automata, such as two-way 
tape Turing machines or the two-stack pushdown automata, of which 
AUTO is an example. 
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A. THE SIMULATION 



AUTO is capable of simulating any given automaton by the use 
of two pushdown stacks and a single finite control. The internal 
transformational rules upon which AUTO operates have a canonical 
form distinct from that of any other automaton. The canonical form 
of the transformational rules by which AUTO operates is of the 
form 

(Q.,L.,R.) - (Q.L., R. ) where 
ill J J J 

Q. is a state of finite control. 

1 

L^ is the top symbol of the left pushdown. 

R^ is the top symbol of the right pushdown. 

Cb is the new state of finite control. 

L. is the symbol(s) which replace L^. 

Rj is the symbol which replaces R^. 

The left hand side of the rule represents an initial configuration and 
the right hand side, the configuration after the indicated transforma- 
tion is performed. 

Since none of the machines or systems under consideration have 
rules exactly of this form, all input rules must first be converted 
into the above canonical form for AUTO. Those items of the above 
configuration which have no exact counterpart in the rules of the 
system being simulated are filled in with dummy arguments by AUTO. 
These arguments vary according to the system which is being simula- 
ted and will indicate to AUTO the proper action to take in the simula- 
tion. An example of a rule for a finite automaton might be 

(Q r a) - (Q 2 ). 
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The resulting rule in AUTO would be 



(Q r #.a) - (Q 2 , #, &) 

which would indicate that the state of the finite control is changed 
from Qj to the top of the left pushdown which is ignored for a 
finite automaton is left unchanged; and the symbol on the top of the 
right pushdown is popped. 

Similarly, transformations are made upon the rules of the push- 
down automaton, Turing machine, and procedural Turing machine to 
conform to the canonical format used by AUTO. In so doing, the 
system preempts the use of certain symbols for system usage. The 
symbols, '%', and may not be used as symbols of the user's 

input or pushdown alphabet. The may be used however, in any 
transformational rule when reference is made to the null or empty 
string. 

B. THE SIMULATION 

All simulations have an identical initialization procedure. First, 
delimiters are placed on top of both stacks for use as end of string, 
end of pushdown, or end of tape symbols. The input string is then 
placed on top of the right stack and the finite control is set to the 
start state. Upon completion of this initialization, the procedure 
will vary according to the type of machine under consideration. 

1 . The Finite Automation (FA) 

The left stack is not used in this simulation. Instead of a 
left to right scan of the normal FA, AUTO does a top to bottom scan, 
by continually popping off the top symbol of the input stack (i. e. , 
right pushdown), while following the general procedural rules for 
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the operation of a finite automaton. Upon completion of processing 
of the last input character, the finite control will be in some state, 
Qy which is then compared against a list of final states. On the 
basis of this test, the input string will either be accepted or re- 
jected. 

2. The Pushdown Automaton (PDA) 

There are two types of pushdown automata; the final state 
PDA and the empty store PDA. AUTO is capable of simulating 
either of these types. The start symbol is placed on top of the left 
stack. Input symbols are popped one at a time from the right stack 
while the action indicated by the rules is performed upon the left 
pushdown. An exception to this procedure is the case of epsilon 
rules, which permit the finite control to change state and the left 
pushdown to be manipulated without popping the top of the input stack. 
The problem of avoiding an infinite loop when processing a PDA with 
epsilon rules is discussed in a later section dealing with halting the 
simulation. 

In all cases where complete processing of the input string 
is attained, i.e., the initialization delimiter is encountered, the 
next action will be determined by the type of PDA being simulated. 
For the final state PDA, action similar to that of the FA will be 
taken. If the automaton is an empty store PDA, the top of the left 
stack is examined. If the top symbol is the delimiter originally 
placed on the stack during initialization, then the pushdown is con- 
sidered to be empty and hence the string would be accepted, other- 
wise the string would be rejected. 
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3. The Turing Machine (TM ) 



The input tape for the TM is not followed by a delimiter, but 
rather by an unbounded string of blanks, which are added as needed 
as the tape head moves to the right. AUTO always considers the 
tape head to be at the top of the right (input) stack. For a move right, 
the top of the right stack is transformed according to the applicable 
rule, then popped off the right stack and pushed on top of the left 
pushdown. For a left move, the process is reversed so that the top 
of the left stack is popped and then pushed down on top of the symbol 
on the right stack which had just been processed. Before a left move 
is attempted, the top symbol of the left pushdown is examined and if 
it is the initialization delimiter, then a move left would be equivalent 
to having the tape head move off the end of the tape. Since this is 
not permissable in a TM, the input string would be rejected. 

After each move has been processed, a check is made for 
final state acceptance. If a final state has not been reached the 
processing continues until either a final state is obtained or a partic- 
ular configuration is reached for which there is no applicable rule. 
This latter case would terminate processing and cause the input 
string to be rejected. 

4. The Procedural Turing Machine (PTM) 

The PTM functions according to the same procedures as the 
TM except that the PTM does not accept or reject input strings. 

Rather the PTM continues to operate until there are no rules which 
apply to a given configuration and then the tape at that stage will be 
output as the result of the procedure. An example is the PTM demon- 
strated in the SAMPLE TERMINAL SESSION. The rules of this PTM 
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define unary multiplication. The number 3, represented as 111, is 
multiplied by 2, represented as 11. The input is defined as the 
string 111*11* and the final output is XXX*1 1*1 1 1 1 1 1 , where 111111 
represents the answer 6. 

C. NONDETERMINISTIC AUTOMATA 

The nondete rministic automaton can be represented as a tree- 
like structure where each node represents a particular configuration 
(lefthand side of a canonical rule) and the edges represent the allow- 
able transformations from one configuration to another. If any path 
terminates in an acceptable final configuration, then the input string 
is accepted. To avoid a fruitless search for such a path, the tree is 
developed in breath first, then in depth. This approach determines 
the shortest possible acceptance path, as well as avoiding a possible 
infinite loop along some particular path. 

The program starts with the input string, start state, and start 
symbol, if any, making up the initial configuration for the root node. 
The listing of the rules is searched for rules which are applicable; 
the transformation is then performed and a node allocated for each 
such rule. The nodes are developed and allocated, conceptually, 
from left to right. Each new node contains a pointer to its predeces- 
sor node and at each level every node has a pointer to the next node 
developed at that level. The last (rightmost) node at each level 
contains a pointer to the first (leftmost) node of the next level. The 
following example will illustrate the development of the tree. 

The nondete rministic finite automaton picture in figure 1 accepts 
the set of all sentences containing either two consecutive 0's or two 
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consecutive l’s. The tree developed by this automaton while proces- 
sing the input string, 0100, is shown in figure 2. 




As each node is created a check is made to determine if a 
condition of acceptance has been reached. If so, the tree is tra- 
versed from the solution node to the root by following the predecessor 

pointers (indicated by ->• in figure 2). As the tree is traversed, 

the predecessor pointers are reversed so that when the root node is 
reached there will be a direct path to the solution node. 

Whereas, for deterministic automata, the printout is given as 
each step is performed, this is not possible when dealing with non- 
dete rministic automata, since it is unknown at the time a node is 
created whether or not it lies on the solution path. Therefore, the 
user may select one of three output options: no trace, a trace only 

if the string is accepted, or a printout of each node as it is allocated. 

D. HALTING THE SIMULATION 

An important consideration in the operation of AUTO is the deter- 
mination of when to halt the processing of any particular string. The 
problem differs for deterministic and nondete rministic automaton. 
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&& indicates that the predecessor node was unable to apply 
any rules and a final state had not been reached. 



For the deterministic finite automaton and pushdown automaton 
without epsilon rules, any input string is processed until there is no 
applicable rule which matches the configuration, or until the end of 
the string has been reached. For the deterministic TM, PTM, or 
PDA with epsilon rules it is possible to have rules which cause the 
machine to go into an infinite loop. For the TM or the PTM, the 
tape head may move left and right alternatively without ever reaching 
the end of the tape or running out of applicable rules. The PDA with 
epsilon rules could add symbols indefinitely to the left stack without 
ever popping any symbols from the input stack. Therefore, AUTO 
requires the user to set a maximum number of allowable steps to be 
performed by an deterministic automaton. 

The halting situation for the nondeterministic TM, PTM, or PDA 
with epsilon rules is basically the same as for the deterministic case. 
However, for all nondeterministic automata the tree structure grows 
in breadth rapidly in relation to the number of rules which are non- 
deterministic. Since it is quite possible for the number of nodes to 
increase almost without bound even at a fairly shallow depth in the 
tree, the user must declare the maximum number of nodes to be 
allocated. 

If the number of steps or nodes set by the user proves to be 
insufficient in a given case, AUTO permits the user to increase the 
maximum and have the system continue with the simulation. 
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III. CONCLUSIONS 



AUTO has effectively simulated deterministic and nondetermin- 
istic finite automata, pushdown automata, Turing machines, and 
procedural Turing machines. During all phases of interaction, the 
system acts as the machine defined by the user. The various options 
and capabilities of AUTO are demonstrated in the sample terminal 
session following Appendix A. 

Automata students introduced to AUTO reported that the inter- 
active system acted as a valuable learning aid. The students found 
that they could quickly have their automata performing as desired, 
because they were able to watch the step by step operation of an 
automaton, easily change its definition, and retest input strings. 

A modified version of AUTO is feasible which would be suitable 
for batch operation. Although the interactive features would be 
sacrificed, this version would allow for quick testing and printout 
of several automata. After reviewing the output, the user could log 
onto the interactive version of AUTO, make corrections and retest 
the automata. 

As presently designed, AUTO could be a valuable aid in the study 
of automata theory and in conjunction with a batch processing version, 
could provide the user with a versatile system for designing and 
testing automata. 
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APPENDIX A 



USER'S MANUAL FOR AUTO 



To access AUTO, the user logs on to the time sharing system in 
the usual manner and then executes the command, 'AUTO'. The 
system responses, permissible user responses, and default options 
are given below (System responses are given in UPPER CASE). All 
questions followed by '(Y OR N) 1 imply the user is to enter the single 
character 'y' for 'yes' or 'n' for 'no 1 . 



1. TYPE OF MACHINE? 



Response 

fa 

pda 

tm 

ptm 

fin 

No default. 



Meaning 

finite automaton 
pushdown automaton 
Turing machine 
procedural Turing machine 
to terminate session 



2. IS MACHINE DETERMINISTIC? (Y OR N) 
No default. 



3. MAX NUMBER OF NODES? 

For nondeterministic automata, enter the maximum number of 
nodes to be allocated. Provisions are made for revising this 
number later in the session. Reply must be in the range: 0 - 9999. 

4. MAX NUMBER OF STEPS? 

Same as above except that this is the maximum number of steps 
to be executed by deterministic automata. 

5. GIVE RULES 

The system will key the user to input rules one at a time, by 
printing a rule number. Acceptable rule formats are: 

A. Finite Automata (CL, A) - (CL) where 
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Q.,Q. are states of the finite control, 

A 1 ^ is the character of the input string 
being scanned. 

B. Pushdown Automata: (CL,A,X) - (CT, S) where 

Q.,Q. are states of the finite control, 

A 1 ^ is the character of the input string being 
scanned, or the character 1 denoting 
an epsilon rule, 

X is the top symbol on the pushdown stack, 

S is a string of from 1 to 4 characters of the 

pushdown alphabet to be added to the push- 
down stack, or the character 1 & 1 which 
denotes that the top symbol of the pushdown 
stack is to be popped. 

C. Turing Machines and Procedural Turing Machines: 

(CT, A) - (Ch, Y, M) where 

Q.,Q. are states of the finite control, 

A 1 ^ is the character being scanned by the tape 
head. The symbol may be 'fe 1 at the 
righthand end of the tape, 

Y is the single character from either the input 

or tape alphabet which replaces ’A 1 , 

M which is either the single character 'l 1 or 

1 r', which denotes whether the tape head 
is to move left(l) or right (r). 



The user terminates the input of rules by typing 'end' as the last rule. 
States may be any string of characters up to three in length. 

All parenthesis and blanks are ignored by the system and may be 
included as desired by the user. The left and right hand side of the 
rules must be separated by the symbol, '- 1 , and the rule must 
contain the proper number of commas. For example: 

(Q.,A,X) - (Q ,S) 

Q. , A , X - Q., S 
1 J 

( (Q., A), (X) ) - (Q. , S) 

are all equivalent. 



6. ENTER START STATE 

Same rules as for states in the input rules. 
No default. 
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7. ENTER START SYMBOL 

For PDA only. User must input a single symbol for the 
top of the pushdown stack. 

No default. 



8. FINAL STATE OR EMPTY STORE? (FORE) 

For PDA only. Enter: 

'f 1 for final state acceptance, 
'e’for empty store acceptance. 

No default. 



9. ENTER FINAL STATE(S) 

For all final state machines, the user must enter the final 
state or states, one per line. End input by typing 'end'. 

No default. 



10. MAKE ANY CORRECTIONS? (Y OR N) 

If user responds 'y 1 , he will be given the following options 

CORRECT ANY RULES? (Y OR N) 

If 'y 1 then system will respond: 

GIVE RULE NUMBER 

Enter the number of the rule to be corrected. 
The system will print the rule as originally 
written and prompt the user with: 

ENTER CORRECT RULE: 

Same rules as for GIVE RULES. 

ADD ANY RULES? (Y OR N) 

If 'y 1 the system will give next sequential 
rule number and user will respond as for 
GIVE RULES. 

CHANGE START STATE? (Y OR N) 

If 1 y 1 then user will be prompted with: 

ENTER START STATE 
Rule 6 above applies. 

CHANGE FINAL STATE(S)? (Y OR N) 

If 1 y ' then the user will be prompted with: 

ENTER FINAL STATE(S) 

User must respond with all final states 
not just new ones. 

CHANGE MAX NODES OR STEPS? (Y OR N) 

If ’y 1 then rules 3 and 4 above, apply. 
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11. GIVE INPUT STRING 

User reply is any string of characters, without embedded blanks, 
or the reserved symbols: 1 &c 1 , and '%'. 



12. WANT A TRACE? (Y, N, ORA) 



A. ’y 1 (1) A trace of all steps of a deterministic 

automata is printed. 

(2) A trace of the solution path, if any, of a 
nondeterministic automata is printed. 



B. 'n 1 No trace. Output will be a statement of 

whether an input string is accepted or 
rejected, except for the case of the PTM, 
where the final configuration of the tape 
will be printed. 



C. 'a 1 All steps or nodes will be printed for both 

deterministic and nondeterministic automata, 
regardless of whether a solution exists. 



13. TRY ANOTHER STRING? (Y OR N) 

If 'y 1 the system will respond: 

MAKE ANY CORRECTIONS FIRST? (Y OR N) 
Rule 10 above, applies. 

14. WANT TO QUIT? (Y OR N) 

If 'y 1 program terminates. 

No default. 



15. WANT TO STORE PRESENT MACHINE? (Y OR N) 

If 1 y ' the system will respond: 

GIVE A NAME TO THIS MACHINE 

Name may be any character string of from 1 to 10 

symbols in length. 

No default. 



16. WANT TO RETRIEVE A MACHINE? (Y OR N) 

If 1 y 1 the system will respond: 

GIVE NAME OF MACHINE 

Reply with name of machine. If machine is 

not in memory, the system will respond: 

NO SUCH MACHINE IN MEMORY 
Question 16 will be repeated. 
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If machine is in memory, the system will respond 

(1) WANT RULES DISPLAYED? (Y OR N) 
Default V. 

(2) GIVE INPUT STRING 
No default. 



17. WANT TO CREATE A NEW MACHINE? (Y OR N) 
If 'y 1 the system will respond: 

TYPE OF MACHINE 
Return to rule 1. 

If 'n' the terminal session will be terminated. 

No default. 
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SAMPLE TERMINAL SESSION 



TYPE OF MACHINE? 
fa 

IS MACHINE DETERMINISTIC? (Y OR N) 

y 

MAX NUMBER 0 F STEPS? 

25 

GIVE RULES 

C 1) 

(qO, 0)-(q0) 

( 2 ) 

(ql, 0)-(q3) 

( 3 ) 

(q2, 0)-(q0) 

( 4) 

(q3/ O)-(ql) 

( 5) 

(qO, l)-(ql) 

( 6 ) 

(ql, l)-(qO) 

( 7) 

(q2 / l)-(q3) 

( 8 ) 

( q 3/ 1 ) - ( q 2 ) 

( 9) 
end 

ENTER START STATE 
qO 

ENTER FINAL STATE(S) 



qO 



end 
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makf any CORRECTIONS ? (Y OR N) 
y 

CORRECT ANY RULES? (Y OR N ) 
y 

GIVE RULF NUUPF.R 

1 

1 : (00, O)-(OO) 

ENTER CORRFCT RULF: 

(qO / 0)-(o2) 

CORRECT ANY MORE RULES? (Y OR N) 
n 



MAKE ANY MORE CORRECTIONS ? (Y OR N) 

n 

GIVE INPUT STRING 
10010101 



WANT A TRACE? 
y 


(Y,N, 


OR A) 




STEP 


RULE 


STATE 


STRING 


1 


0 


QO 


10010101 


2 


5 


Q1 


0010101 


3 


2 


Q3 


010101 


4 


4 


01 


10101 


5 


6 


QO 


0101 


6 


1 


02 


101 


7 


7 


0.3 


01 


8 


4 


Q1 


1 


9 


6 


QO 




STRING IS ACCEPTED 

TRY ANOTHER STRING? 
n 


(Y OR 


N) 


WANT TO QUIT? 


(Y OR 


N) 
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WANT TO STORE PRESENT MACHINE? (Y OR M) 

y 

GIVE A NAME TO THIS MACHINE 
evenl&O 

WANT TO RETRIEVE A MACHINE? (Y OR N) 

n 

WANT TO CREATE A NEW MACHINE? (Y OR N) 

y 

TYPE OF MACHINE? 
fa 

IS MACHINE DETERMINISTIC? (Y OR N) 

n 

MAX NUMBER OF NODES? 

20 

GIVE RULES 

( 1 ) 
qO, O-qO 

( 2 ) 
qO, 0-q3 

< 3) 
q 0, 1-qO 

( 4) 
qO, 1-ql 

( 5) 
q 1/ 1-q 4 



( 7) 
q 3 / 0-q 4 

( 8 ) 
q3,l-$ 

( 9 ) 
q4, 0-q 4 

( 10 ) 
q 4, 1-q 4 

( 11 ) 

end 
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ENTER START STATE 
qO 

ENTER FINAL STATE ( S ) 



q4 



end 

MAKE ANY CORRECTIONS ? (Y OR N) 

n 

GIVE INPUT STRING 
0100 



WANT A TRACE? ( Y , N / 

y 

STEP RULE 
0 0 

1 1 

2 3 

3 2 

4 7 

STRING ACCEPTED 

NODES = 11 

TRY ANOTHER STRING? 

y 

MAKE ANY CORRECTION 

n 



OR A) 




STATE 


STRING 


QO 


0100 


QO 


100 


QO 


00 


Q3 


0 


Q4 





(Y OR N) 

FIRST? (Y OR N) 



GIVE INPUT STRING 
0101010110 

WANT A TRACE? (Y,N, OR A) 
n 

MAX NUMBER OF NODES EXCEFDED 

WANT TO CHANGE MAXIMUM? (Y OR N) 

y 

WHAT IS MEW MAX? 

50 
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STRING ACCEPTED 



NODES = 30 

TRY ANOTHER STRING? (Y OR N) 

y 

MAKE ANY CORRECTIONS FIRST? (Y OR N ) 



GIVE INPUT STRING 
0100 




WANT A TRACE? (Y,N, OR 
a 


A) 


NODE STATE 


INPUT STRING 


o 

.o 

o 


0100 


1 Q0 


100 


2 Q3 


100 


3 Q0 


00 


4 Q1 


00 


5 ft 


00 


G Q0 


0 


7 Q3 


0 


8 h 

9 Q0 

10 03 

11 Q4 

STRING ACCEPTED 
NODES = 11 


0 



TRY ANOTHER STRING? (Y OR N) 

n 

WANT TO QUIT? (Y OR N) 
n 

WANT TO STORE PRESENT MACHINE? (Y OR N) 

y 
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GIVE A NAME TO THIS MACHINE 
doub 1 es 

WANT TO RETRIEVE A MACHINE? (Y OR N) 

n 

WANT TO CREATE A NEW MACHINE? (Y OR N) 

y 

TYPE OF MACH INF? 
pda 

IS MACHINE DETERMINISTIC? (Y OR N) 



MAX NUMBER OF NODES? 
30 

GIVE RULES 
( 1 ) 

ql, 0, r-ql, br 
( 2 ) 

q 1/ 1/ r-q 1, gr 
( 3 ) 

q 1, 0, b-q 1, bb 
( 4 ) 

ql, 0,b-q2,£< 

( 5 ) 

q 1, 0, g-q 1, bg 
( 6 ) 

ql, 1, b-q 1, gb 



ql, 1 , g-q 1, gg 
( 8 ) 

ql, 1, g-q 2, & 

( 9) 

q2, 0, b-q2, & 

( 10 ) 

q 2, l,g-q2,& 

( 11 ) 

ql,&, r-q2,& 

( 12 ) 

q2,&, r-q 2, & 
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(13) 

end 

ENTER START STATE 
ql 

WHAT IS START SYMBOL? 

r 



FINAL STATE 
e 


OR EMPTY 


STORE? (F OR E) 




MAKE ANY CORRECTIONS 

n 


? (Y 


OR N) 




GIVE INPUT 
011110 


STRING 








WANT A TRACE ? (Y,N, 
y 


OR A) 






STEP 


RULE 


STATE 


PUSHDOWN 


STRING 


0 


0 


Ql 


R. 


011110 


1 


1 


Ql 


BR 


11110 


2 


6 


Ql 


GBR 


1110 


3 


7 


Ql 


GGBR 


110 


4 


8 


Q2 


GBR 


10 


5 


10 


Q2 


BR 


0 


6 


9 


Q2 


R 




7 


12 


Q2 







STRING ACCEPTED 

NODES = 14 

TRY ANOTHER STRING? (Y OR N) 
y 

MAKE ANY CORRECTIONS FIRST? (V OR N) 

n 

GIVE INPUT STRING 
00011100111000 

WANT A TRACE? (Y,N, OR A) 
n 
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MAX NUMBER OF NODES EXCEEDED 



WANT TO CHANGE MAXIMUM? (Y OR M) 

y 

WHAT IS NEW MAX? 

100 

STRING ACCEPTED 

NODES - 33 

TRY ANOTHER STRING? (Y OR N) 
n 

WANT TO QUIT? (Y OR N) 
n 

WANT TO STORE PRESENT MACHINE? (Y OR N) 

y 

GIVE A NAME TO THIS MACHINE 
wwr l&Q 



WANT 

n 


TO 


RETRIEVE 


A MACHINE? (Y 


OR N) 


WANT 

y 


TO 


CREATE A 


NEW MACHINE? 


(Y OR N) 


TYPE 

tm 


OF 


MACHINE? 







IS MACHINE DETERMINISTIC? (Y OR N) 

y 

MAX NUMBER OF STEPS? 

100 

GIVE RULES 
( 1 ) 

ql, 0-ql, 0-0 

INCORRECT FORMAT, REPEAT RULE 
ql, 0-ql, 0, r 

( 2 ) 

ql, y-q 1, y, r 
( 3) 

ql, 1-q 2 , y, 1 
( 4) 

q2, y-q2, y, 1 
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( 5) 

q2,x-q3,x, r 



( 6 ) 

q2/ 0-q 4, 0, 1 
( 7) 

q4, 0-q4, 0, 1 
( 3 ) 

q4 / x-q0 / x / r 
( 9) 

q3 / y-q3, y, r 
( 10 ) 

q3,&-q5, y , r 
( 11 ) 

q 0/ 0-q 1/ x / r 

(12) 

end 

ENTER START STATE 
qO 

ENTER PINAL STATE ( S ) 



q5 



end 

MAKE ANY CORRECTIONS ? (Y OR N) 

n 

GIVE INPUT STRING 
0011 

WANT A TRACE? (Y,N, OR A) 
n 

STRING I S ACCEPTED 

TRY ANOTHER STRING? (Y OR N) 

y 

MAKE ANY CORRECTIONS FIRST? (Y OR M) 

n 

GIVF INPUT STRING 
0011 
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WANT A TRACE? (Y,N, OR A) 



STEP 


RULE 


STATE 


TAPE 


1 


0 


QO 


->0011 


2 


11 


01 


X->011 


3 


1 


Q1 


X0->11 


4 


3 


Q2 


X->0Y1 


5 


6 


Q4 


-> XOY 1 


6 


8 


0.0 


X-> OY 1 


7 


11 


Q1 


XX- >Y 1 


8 


2 


Q1 


XXY - > 1 


9 


3 


Q2 


XX-> YY 


10 


4 


Q2 


X- >XYY 


11 


5 


03 


XX->YY 


12 


9 


03 


XXY->Y 


13 


9 


Q3 


XXYY-> 


14 


10 


Q5 


XXYYY-> 



STRING IS ACCEPTED 

TRY ANOTHER STRING? (Y OR N ) 

y 

MAKE ANY CORRECTIONS FIRST? (Y OR N) 

n 

GIVE INPUT STRING 
00011 

WANT A TRACE? (Y,N, OR A) 

n 

STRING NOT ACCEPTED 

TRY ANOTHER STRING? (Y OR N) 

n 

WANT TO QUIT? (Y OR N) 
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WANT TO STORE PRESENT MACHINE? (Y OR N) 

y 

GIVE A NAME TO THIS MACHINE 
0 * *n 1 * *n 

WANT TO RETRIEVE A MACHINE? (Y OR N) 

y 

GIVE NAME OF MACHINE 
wwr 1&0 

WANT THE RULES DISPLAYED? (Y OR N) 
n 

GIVE INPUT STRING 
10 

WANT A TRACE? (Y,N, OR A) 
n 

STRING NOT ACCEPTED 

NODES = 1 

TRY ANOTHER STRING? (Y OR N) 
n 

WANT TO QUIT? (Y OR N) 
n 

WANT TO STORE PRESENT MACHINE? (Y OR N) 

n 

WANT TO RETRIEVE A MACHINE? (Y OR N) 
n 

WANT TO CREATE A NEW MACHINE? (Y OR N) 

y 

TYPE OF MACHINE? 
ptm 

MAX NUMBER OF STEPS? 

100 

GIVE RULES 
( 1) 

qO, l-ql,x, r 
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( 2 ) 

ql/ 1-ql/ 1 / f" 

( 3) 

ql , * -q 2 , * , r 
( 4) 

q2,y-q2,y, r 
( 5) 

q2,l-q3,y, r 
( 6 ) 

q3 , l-q3, 1, r 
( 7) 

q3,*-q4,*, r 
( 8 ) 

q4 , l-q4 , 1 , r 
( 9) 

q4,&-q5, 1, 1 

( 10 ) 

q5, l-q5 , 1, 1 

( 11 ) 

q5 , *-q5 , * , 1 

( 12 ) 

q5/ y-q2 , y / r 

(13) 

q2 , *-q6 , * , 1 

(14) 

q6,y-q&/ 1/ 1 

(15) 

q6,*-q6,*,l 

(16) 

qG, 1-qG, 1/ 1 

(17) 

q6,x-q0,x, r 

(18) 

qO, *-q7 , r 

(19) 

end 
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ENTER START STATE 
qO 

MAKE ANY CORRECTIONS? (Y OR N) 
n 

GIVE INPUT STRING 
11 * 11 * 

WANT A TRACE? (Y,N, OR A) 
n 

FINAL CONFIGURATION: XX* ->11*1111 

TRY ANOTHER STRING? (Y OR N) 

y 

MAKE ANY CORRECTIONS? (Y OR N) 
n 

give input string 
111 * 11 * 

WANT A TRACE? (Y,N, OR A) 
n 

MAX NUMBER OF STEPS EXCEEDED 
WANT TO CHANGE MAX? (Y OR N) 

y 

WHAT IS NEW MAX? 

150 

TRY ANOTHER STRING? (Y OR N) 

y 

MAKE ANY CORRECTIONS? (Y OR N) 
n 

GIVE INPUT STRING 
111 * 11 * 

WANT A TRACE? (Y / N / OR A) 
n 

F I NAL CONFIGURATION: XXX* ->11*111 111 

TRY ANOTHER STRING? (Y OR N) 

y 

MAKE ANY CORRECTIONS? (Y OR N) 

n 
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GIVE INPUT STRING 
1 * 11 * 

WANT A TRACE? ( Y, II, OR A) 



STEP 


RULE 


STATE 


TAPE 


1 


0 


QO 


->1*11* 


2 


1 


Q1 


X->*11* 


3 


3 


Q2 


X*->11* 


4 


5 


Q3 


X * Y - > 1 * 


5 


6 


Q3 


X * Y 1 - > * 


6 


7 


Q4 


X*Yl*-> 


7 


9 


Q5 


X*Y1- >* 1 


8 


11 


Q3 


X*Y->1*1 


9 


10 


Q3 


X*->Y1*1 


10 


12 


Q2 


X*Y->1*1 


11 


5 


Q3 


X*YY->* 1 


12 


7 


Q4 


X* YY*- > 1 


13 


8 


Q4 


X* YY* 1- > 


14 


9 


Q5 


X*YY*-> 11 


13 


10 


Q3 


X*YY->*11 


16 


11 


Q3 


X*Y->Y*11 


17 


12 


Q2 


X*YY- > *11 


18 


13 


Q6 


X*Y->Y*11 


19 


14 


Q6 


X*->Y1*11 


20 


14 


Q6 


X->*11*11 


21 


16 


Q6 


->X*11*11 


22 


17 


QO 


X->*11*11 


23 


18 


Q7 


X*->11*11 



FINAL CONFIGURATION: 
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/* AUTO 



AN AUTOMATON SYNTHESIZER 



GOLD: PROC OPT I ONS ( MA I N ) ; 



*/ 



/* 



DECLARATION SECTION 

RULES -THE ARRAY OF RULES IN CANONICAL FORM 

RULE -THE ARRAY OF RULES AS INPUT BY THE USER 

STATE -A STATE OF FINITE CONTROL 
RSTATE -THE START STATE 

NO -RULE NUMBER, FOR REPLY STATEMENT 

DUM -THE START SYMBOL 

LEFT -THE INITIALIZED LEFT PUSHDOWN STACK 

X , T -STRINGS USED IN PREPARING OUTPUT IN THE 

PROPER FORMAT FOR TM AND PTM 
FST -A FINAL STATE 

FN ST -THE ARRAY OF FINAL STATES 

NUM -THE PROMPTER FOR RULE INPUT 

MAXUM -THE CHARACTER REPRESENTATION OF THE 

MAXIMUM NUMBER OF STEPS OR NODES 
MORE -OUTPUT STRING CONTAINING EITHER A BLANK 

OR THE. WORD * MORE 1 

FIRT -OUTPUT STRING CONTAINING EITHER A BLANK 

OR THE WORD 'FIRST ' 

CONFIG -A MACHINE CONF I GUR AT I ON 

INPUT -INPUT OF RULES 

BUFF -THE INPUT STRING 

QUE -SINGLE LETTER REPLY CHARACTERS 

TAPE -THE TM OR PTM TAPE 

TYPE -AUTOMATON TYPE 

NAME -VARIABLE TO CONTAIN NAME OF MACHINE TO BE 

STORED OR RETRIEVED 
TL PD -TOP SYMBOL OF LEFT STACK 

TRPD -TOP SYMBOL OF RIGHT STACK 

TLPDN -DUPLICATE OF TOP OF LEFT STACK 

LPDA, RPDA 
WRPDA, WLPDA 

RPDOWN , LPDOWN THESE SIX CHARACTER STRINGS ARE 

USED TO REPRESENT THE RIGHT AND 
LEFT PUSHDOWNS; WORKING COPIES OF 
THESE PUSHDOWNS; AND THE PUSHDOWNS 
IN THE FORM NEEDED FOR OUTPUT. 

OLD STATE 
OLD_LFT OP 

OLD RTTOP -THE LEFTHAND SIDE OF A CANONICAL RULE; 

THE STATE, TOP OF THE LEFT STACK, AND 
THE TOP OF THE RIGHT STACK. WHEN 
CONCATENATED TOGETHER, THE STRING 
REPRESENTS A PARTICULAR CONFIGURATION. 

*/ 



DCL RULES (50,4) CH AR ( 5 ) , 

STATE CHAR ( 3 ) , 

NO CH AR ( 2 ) , 

RSTATE CH AR ( 3 ) , 

RULE ( 50 ) CHAR (50) VARYING, 

DUM CHARI U, 

LEFT CHAR ( 2 ) , 

X CHAR ( 50 ) VARYING, 

T CHAR ( 1 ) , 

FST CHAR ( 3 ) , 

NUM PICTURE • Z9 ' , 

FNST(IO) CH AR ( 3 ) , 

MAXUM CHAR ( 4 ) , 

(MORE, FIRT) CHAR ( 6 ) VARYING, 

CONFIG CHAR ( 5 ) , 
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NAME 
TLPD 
TRPO 
TLPDN 
TRPDN 
WRPDA 
WL PDA 
BUFF 
QUE 
LPDA 
RPD A 
INPUT 
RPDOWN 
LPDOWN 
TAPE 



CHAR( 10 ) , 
CHAR(1 J , 
CHAR ( L) , 
CHAR(1 ) , 
CHARd) , 
CHARdOO) , 
CHARdOO) , 
CHAR ( 50 ) , 
CHAR(1 ) , 
CHARdOO) 
CHARdOO) 

CH AR ( 50 ) ... 

CH AR( 50 ) 
CH AR ( 20 ) 
CHAR( 50) 



VARYING, 

VARYING, 

VARYING, 

VARYING, 

VARYING, 



TYPE CHAR ( 3 ) , 

OLD STATE CHAR(3) , 

OLD_LFTOP CHARd ) , 

J3LD_RTT0P CHAR! 1 ) ; 

/* STRUCTURE USED TO STORE MACHINES IN MEMORY */ 

DCL 1 STORED BASED ( P ) , 

2 LEFTS CHAR (21* 

2 NDET , 

2 IPO, 

2 NAMES CHARdO), 

2 TYPES CH AR ( 3 ) , 

2 RSTATES CHAR ( 3 ) , 

2 NEMPTYS, 

2 SRULES (50,4) CHARd), 

2 SRULE ( 50 ) CHAR ( 50 ) , 

2 FNSTSdO) CHAR ( 3 ) , 

2 NXT PTR; 



/* POINTERS, FLAGS, £ COUNTERS 



*/ 



DCL TT PTR, 

D PTR, 

( I GOOD, I TRACE ,NODNO, NEMPTY , I , J , NC,NF) FIXED BINARY 



/* INITIALIZATION 
IFIRST = 0; 

ON C °NVERSION i BEGIN At numberi) REPLY ( MAXUM ) ; 
ONSOURCE = MAXUM; 

END; 

GETTING: 

FNST = ■ • ; 

MORE = ■ • ; 

FIRT = 1 * ; 

RULE = « 1 ; 

RULES = 1 1 ; 

NEMPTY = 0; 

NEW = o; 

I pro = o; 

I CHK = 0; 

QUE = 1 • ; 

NOND = 0; 

Dl SPLAY (' TYPE OF MACHINE? 1 ) REPLY (TYPE) ; 
ip TYPF = 'PTM* THEN DO; 

DI SPLAY ( 1 MAX NUMBER OF STEPS?') REPL Y ( MAXUM ) ; 
GO TO maxptm; 

IF°TYPE = 'FIN' THEN GO TO FINI; t , . 

DISPLAY! ' IS MACHINE DETERMINISTIC? (Y OR N)') 

REPLY ( QUE ) ; 

MAXI : 
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REPLY ( MAXUM ) ; 



IF QUE = ' N' THEN DO; 

D I SPLAY (' MAX NUMBER OF NODES?') 

ELSE D I S PL AY ( ' MAX NUMBER OF STEPS?') REPLY ( MAXUM) ; 

IF X SUBSTR(MAXUM,I, IX'O' then go to maxi; 

MAXNO = MAXUM; 

/* READ THE RULES IN ONE AT A TIME 

D I SPLAY ( 'GIVE RULES' ) *, 

REA °iF NEW = 1 THEN DO; 

NEW = o; 

J = JTEMP; 

GO TO repeet; 

end;_ 

DISPLAY i ' ( ' I I NUM ||') ') REPLY( INPUT) ; 

IF INPUT = 'END' THEN GO TO BUILD; 

RULE ( J ) = INPUT; 



*/ 



/* RID THE INPUT STRING OF ALL EMBEDDED BLANKS 
AND PARENTHESIS 



*/ 



CRUSH: 

m = i ; l = i ; 

NCOM = 0; NDOT = 0; 

?SUBSTRUNPUT?ia )-=' J CSUBST R( INPUT , I » 1 )-*='( 1 
£ SUBSTR( I NPUTtI ,!)-’=' )') *, 

L = l + i; 

end; 

l = l + i; 

IF L>30 THEN GO TO TRIM; „ T . 

SUBSTR ( I NPUT 1 1 ) = SUB STR ( l NP UT , I + 1 ) ; 

M = I ; 

GO TO LOOP; 

/* TRIM THE INPUT STRING OF ALL TRAILING BLANKS */ 

TRIM INPUT = SUBSTRdNPUTfItINDEXJ INPUT* ■ ')-l); 

IF SUBSTR(INPUT,I,I)<* A' THEN DO; 

ERR DISPLAY( ' INCORRECT FORMAT, REPEAT RULE') REPLY ( I NPU 

rule ( j ) = 1 
RULES! J»*) =■* 5 

?f L input'= I *end! then go to build; 

GO TO CRUSH; 

IF°iNDEX( INPUT,'-’ 1=0 THEN GO TO ERR; 

00 1 If 1 substrunput , i ,1 ) ’= then ncom = ncom + l; 

IF SUBSTRIINPUT ,1 ,1) = THEN NDOT - NDOT *■ 

end; 

TRIM IF TYPE = 'FA ' THEN GO TO FA; 

IF TYPE = 'PDA' THEN GO TO P_DA, 

F TYPE = ’PTM’ then ipro = T; 

IF TYPE = 'PTM' THEN TYPE = *TM '; 

ir. TYPF = 'TM ' THEN GO TO T M» 

DI SPLAY (' WHAT IS MACHINE?') REPLY(TYPE); 

GO TO TRIMl; 






THE INPUT RULES TO THE CANONICAL FORM OF 
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THE RULE REQUIRED BY AUTO. AFTER EACH 
RULE IS TRANSFORMED, A BRANCH IS MADE TO 
THE READ SECTION TO SEE IF THERE ARE ANY 
MORE RULES. THE INPUT OF RULES IS TERMINATED 
BY INPUTTING 'END' . */ 



F__A : 



P_DA 



IF NCOM = I 1 NDOT -»= 1 THEN GO TO ERR; % 

OLD_ST AT E = SUBSTR! INPUT, 1, INDEX! INPUT,',' )-l); 

OLD”RTTOP = SUBSTR! INPUT , INDEX! INPUT, ',') + !,!) ; 
RULES! J,l) = OLD_STATE I |OLD_LFTOP| I OLD RT TOP ; 
RULES ( J , 2 ) = SUBSTR! INPUT, INDEX! INPUT, '-' ) + l) ; 
RULES! J, 3) * •#' 5 
RULES ( J , 4 ) = •&' ; 

j = j + i; 

GO TO READ; 



IF NCOM -i= 3 | NDOT -»= 1 THEN GO TO ERR; i% 

OLD STATE = SUBSTR! INPUT, I , INDEX I INPUT, )-I ) • 
OLD~LF TOP = SUBSTR! INPUT, INDEX! INPUT, -1 ,1 ) , 

OLD RTTOP = SUBSTR! INPUT , INDEX! INPUT, ', ')+l, 1 ) » 
RULES(J,1) = OLD_STATE| IOLDLFTOP MOLD rttop; 
INPUT = SUBSTR(INPUT,INDEXtTNPUT,_ •-•l+.n; 



lINrUI , 1 UI/lAI iuru I , 

SUBSTR! INPUT, I , INDEX! INPUT , 1 , ■ )“1 1 5 
SUBSTR! INPUT, INDEX! INPUT ,«,«)+ 1 ) ; 

'£' ; 



T_M : 



RULES! J, 2) 

RULES ( J , 3 ) = 

RULES ! J , 4 ) = 

J = J + i; 

GO TO READ; 

IF NCOM -»= 3 | NDOT -»= L THEN GO TO ERR; 

OLD_ST ATE = SUBSTR! INPUT ,1 , INDEX ( INPUT ,',' )-l ) ; 

OLDlRTTOP = SUBSfR(INPyT,INDEXUNPyT,',' 1 + 1,1) ; 
RULES! J, I) = OLD_ST ATE I | OLD_LFTOP 1 (OLD RTTOP , 
INPUT ' = SUBSTR! INPUT , I NDEX ( INPUT ,'-')+ 1) ; 

RULES ( J , 2 ) = SUBSTR! INPUT , 1 , I NDEX ( INPUT, , )-l), 

INPUT = SUBSTR! INPUT, INDEX! INPUT, , +1 5 

IF SUBSTR! INPUT, INDEX! INPUT, ',* )+L, 1) = R* 

RULES(J,3) = ' #' I I SUBSTR! INPUT, 1, 1 ) ; 

RULES(J,4) = '£• ; 

J = j+i; 

GO TO READ; 



THEN BEGIN 



IF D SUBSTR( INPUT, INDEX! INPUT,*,' )+I,U 

RULESt J ,4 ) = 'll* I isUBSTR(INPUT,l,l) ; 
j = J + i; 

GO TO READ; 

end; 

GO TO err; 



L* THEN BEGIN 



/* 



THE FOLLOWING SECTIONS; BUILD, PINAL, AND 
GET STATE CALL FOR INPUTTING OF THE START 
STATE AND IN THE CASE OF THE PDA, THE START 
SYMBOL. FOR THE PDA, A DETERMINATION IS 
MADE OF WHETHER THE MACHINE IS A PINAL STATE 
OR EMPTY STORE MACHINE. FOR ALL MACHINES 
WITH FINAL STATE ACCEPTANCE, A LIST OF FINAL 
STATES IS OBTAINED. THE LEFT PUSHDOWN IS 
INITIALIZED ACCORDING TO THE TYPE OF MACHINE, 
I.E., DELIMITERS PLACED ON THE STACK OR THE 
START SYMBOL FOR THE PDA. 



*/ 



BUIL DISPLAY (' ENTER START STATE') REPLY ! RSTATE ) ; 
IF RSTATE = ' ' THEN GO TO BUILD; 

IF TYPE = 'FA ' THEN BEGIN; 
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LPD A = •#• ; 

LEFT = LPDA; 

GO TO FINAL; 

END; 

IF TYPE = 'PDA* THEN BEGIN; 

DUMDUM: 

DISPLAY! 'WHAT IS START SYMBOL?') REPLY ( DUM ) ; 

IF DUM = ' ' THEN GO TO DUMDUM; 

LPDA = DUM| I ' £' ; 

LEFT = LPDA; 

DISPLAY! 'FINAL STATE OR EMPTY STORE? !F OR El'l 
REPLY ( QUE ) ; 

IF QUE = 'F' THEN GO TO FINAL; 

IF QUE -»= 'E' THEN GO TO FORE; 

NEMPTY = l; 

GO TO REPLAY; 

END; 

IF TYPE = 'TM ' THEN LPDA = * #&' ; 

LEFT = LPDA; 

FINAL: 

IF IPRO = 1 THEN GO TO REPLAY; 

nf = i; 

DISPLAY! 'ENTER FINAL ST ATE ( S ) ' ) ; 

GET STATE: 

“DISPLAY!': ') REPLY(FST); 

IF FST = 'END' THEN BEGIN; 

IF NF I N = 0 THEN GO TO REPLAY; 

GO TO RESTART; 

END; 

FNST(NF) = FST; 

NF = NF + 1 ; 

GO TO GET_ST AT E ; 

/* NEWRULEt REPLAY, REPEET AND REPLAY1-4 HANDLE 
THE INTERACTIVE CHANGES, ADDITONS, DELETIONS, 
ETC. TO THE MACHINE INPUT BY THE USER. */ 



) REPLY! INPUT) ; 



DISPLAY! 'GIVE RULE NUMBER') REPLY ( NO ) ; 

IF SUBSTR! NO, I , 1 ) <• 0 ' THEN GO TO NEWRULE; 

KK = NO; 

IF KK <= 0 | KK> J THEN DO; 

DI SPLAY ( ' NO SUCH RULE'); 

GO TO REPEET; 

END; 

DISPLAY ( NO | I ' : 'I I RULE ( KK ) ) ; 

RULE ( KK ) = ' ' ; 

RULES ( KK , * ) = ' '; 

DISPLAY! ' ENTER CORRECT RULE: 

NEW = i; 

JTEMP = J; 

RULE ( KK ) = INPUT; 

J = KK; 

GO TO CRUSH; 

Dcp IAY I 

DI SPLAY! ' MAKE A NY ' | I MORE | I ' CORR ECT I ONS • I I F I RT j | ' ? (Y OR 

REPLY(QUE); t 

IF QUE = 'N' THEN GO TO RESTART; 

IF QUE-*= ' Y ' THEN GO TO REPLAY; 

IF MORE -.= ■ ' THEN DO; 

MORE = ' ' ; 

GO TO REPLAYl; 

END; 

DCDCCT • 

D I SPL A Y ( ' CORRECT ANY • I I MORE I I • RULES? (Y OR N)'l 
RF PLY ( QUE ) * 

IF QUE = 'N' £ MORE = ' MORE ' THEN DO; 

FIRT = ' ' ; 

GO TO replay; 
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IF°QUE = ’N' THEN GO TO REPLAY1 ; 

IF QU E-»= 1 V ' THEN GO TO REPEET; 

MORE = 1 MORE '; 

GO TO NEWRULE; 

REPL DISPLAY( • ADD ANY RULES? (Y OR N)') REPLY ( QUE I ; 

IF QUE = 1 N 1 THEN GO TO REPLAY2; 

IF QUE -= «Y' THEN GO TO REPLAY I ; 

D I SPLAY ( 1 G I VE RULES'); 

GO TO READ; 

REPL DISPLAY( ’CHANGE START STATE? !Y OR N)’) RE PLY ( QUE ) ; 

IF QUE = 'N' THEN GO TO REPLAY3; 

IF QUE ~»= 'Y' THEN GO TO REPLAY2; 

DISPLAY! 'ENTER START STATE’ I REPLY! RST ATE ) ! 

IF RSTATE = 1 1 THEN GO TO REPLAY2L; 

REPL DISPLAY( 'CHANGE FINAL STATE(S)? (Y OR N)') REPLY(QUE); 
IF QUE = ' N ' THEN GO TO REPLAY4; 

IF QUE -= ' Y ' THEN GO TO REPLAY3; 

NF IN = l; 

GO TO final; 

REPL DISPLAY( 'CHANGE MAX NODES OR STEPS? (Y OR N)'> 

if P que Q = E ^* then go to restart; 

MAX1 DI SPLAYI ' WHAT IS NEW MAXIMUM?' ) REPLY (MAXUM ) ; 

IF SUB STR ( MAXUM i It IK* O' THEN GO TO MAXI, 

MAXNO = MAXUM; 

'* ^ E e^e T o H InJ> NP Wc S e T s R IK|:input 

STRING IN THE RIGHT PUSHDOWN. A CHECK IS 
MADE TO DETERMINE IF A TRACfc IS REQUIRED AND 
IF SOt THE APPROPRIATE HEADING FOR THE 
TYPE OF MACHINE IS PRINTED. *' 



RESTART: 

D? SPLAY I *GI VE INPUT STRING’ t REPLY! BUFF) ; 

RPDA = SUBsIrIRPDA,! .INDEXIRPDA, ' •)-l)|l , £ , S 

RPDA = RPDA | | ’ #' ! 

LPDA = LEFT; 

STATE =_RSTATE; 

dIsPL AY ( ' WANT A TRACE? (YfN, OR A)') REPLY(QUE), 

IF QUE = 'Y' THEN ITRACE = I; 

IF QUE = 'A' THEN ITRACE = 2; 

*IF ITRACE = i| (ITRACE = 2 & NOND = 0) THEN DO, 

^is^V THEN STE^ RULE STATE STRING’ » 
GO TO MACHINE; 

IF D fYPE = 'PDA' THEN DO; „ e CTATCtll 

DISPLAYC STEP R yt£ T NrS|^ TE 

» PUSHDOWN STRING > , 

GO TO MACHINE; 

DISPLAY ( ' STEP RULE STATE TAPE '); 

END; 

/* MACHINE CALLS FOR THE NONDETERM I NIST I C 
PROCEDURE WHEN NEEDED, CHECKS THAT THE 
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MAXIMUM NUMBER OF STEPS OR NODES HAS NOT 
BEEN EXCEEDED, AND CAUSES THE STEP-BY-STEP 
OPERATION OF THE AUTOMATON TO BE PRINTED, 



*/ 



MACHINE: 

NUM = I ; 

IF NOND = 1 THEN BEGIN; 

CALL NONDET; 

IF NODNO<MAXNO THEN D I SPLAY (' NODES = • IlNODNO); 

GO TO rerun; 

end; 

IF NC = MAXNO THEN DO; 

DISPLAY! * MAX NUMBER OF STEPS EXCEEDED'); 

DI SPLAY! ' WANT TO CHANGE MAX? (Y OR N)') REPLY(QUE); 
IF QUE = 'N* THEN GO TO RERUN; 

MAX2 : 

DISPLAY! 'WHAT IS NEW MAX?') REPLY ( MAXUM ) ; 

IF SUBSTR! MAXUM, 1,IX'0' THEN GO TO MAX2 ; 

MAXNO = MAXUM; 

END; 

TLPD = SU6STR(LPDA,L,I); 

TRPD = SUBSTR! RP DA, 1,1) ; 

IF TRPD = '#* £ TYPE = 'TM ' THEN DO; 

TRPD = 'S'; 

RP DA = '£#' ; 

END; 

NC = NC + 1; 

IF TLPD = ' £ ' | TRPD = '#' THEN GO TO STUCK; 

IF ITRACE = 1 1 ( I TRACE = 2 £ NOND = 0) THEN DO; 

RPDOWN = SUBSTR(RPDA,1,INDEX(RPDA, '£' }-l) ; 

IF TYPE = 'FA ' THEN DO; 

DISPLAY (NCI | ' '| | NUM | I ' 'll STATE! I 

' ' | | RPDOWN ) ; 

GO TO RUN; 

END; 

IF TYPE = 'PDA* THEN DO; 

LP DOWN = SUBSTR (LPDA, 1 , INDEXtLPDA, '£' )-l ) : 
DISPLAY (NCI | ' ' II NUM I! 1 ' I 1ST ATE I I 

' '|| LPDOWN | | RPDOWN) ,* 

GO TO RUN; 

END; 

IF TYPE = ' TM ' THEN DO; 

I CHK = l; 

/* PROD IS A SPECIAL ROUTINE WHICH HANDLES THE 

OUTPUT OF THE TM AND PTM . */ 



PROD: 



X = SUBSTR(LPDA,2,LENGTH(LPDA)-1 ) ; 

LEN = LENGTH! X) ; 

DO I = 1 TO LEN/2; 

T = SUBSTR! X, I ,1 ) ; 

SUBSTR ( X , I , 1 ) = SUBSTRCXt LEN-I+l,l) ; 

SUBSTRtX, LEN— 1+1,1 ) = T; 

END; 

X = SUBSTRtX, INDEX(X, 'S' )) ; 

X = SUBSTRtX, 2) ; 

IF IPRO = 1 £ I CHK = 0 THEN BEGIN; 

IF SUBSTR (RPDA, 1 , l ) = ' £ ' THEN RPDOWN= ' '; 

ELSE RPDOWN = SU BS TR ( RPD A , 1 , I NDEX ( R PDA , • £ • ) - 1 ) 
TAPE = X | | '->* | IRPDOWN; 

DI SPLAY ( ' FINAL CONFIGURATION: '||TAPE)5 

GO TO RERUN; 

END; 

TAPE = X| | '->' | IRPDOWN; 

DISPLAY 

( NC | | * ' | | NUM | | ' * | | STATE | | • • | I TAP E ) ; 

IF IPRO = 0 THEN DO; 

DO NR = 1 TO NF; 

IF STATE = FNST(NR) THEN GO TO POS; 

END; 
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end; 

GO TO RUN; 

DI SPLAY !' INCORRECT MACHINE TYPE WAS ENTERED'); 

DI SPLAY! "TYPE ENTERED WAS: 'llTYPE); 

GO TO rerun; 
end; 

/* RUN, WITH ITS SUBPROGRAMS, CHANGE AND RIGHT, 
DO THE ACTUAL PROCESSING OF THE STRING IN 
THE DETERMINISTIC MACHINES. RUN FINDS ANY 
APPLICABLE RULES. CHANGE, DOES THE NECESSARY 
OPERATIONS ON THE LEFT PUSHDOWN, AND RIGHT 
PUSHDOWN. 



RUN: 

WRPDA = RPDA; 

WL PDA = LPDA; , , _ 

CONFIG = STATE! |TLPD| ITRPD; 

°° 1 ! F 1 RULE S f 1,1) = CONFIG THEN GO TO CHANGE; 

IF TYPE = 'PDA' THEN DO; . T1II _ kl ^ 

IF SUBSTR(RULES( 1,1) ,5, L) = THEN DO; 

IF SUBSTR( RULES! 1,1) ,1,3) = STATE THEN DO; 
IF SUBSTR! RULES! 1,1), 4,1) = TLPD THEN 
GO TO EPSILON; 

END; 

END; 

END; 

end; 

GO TO STUCK; 

CHANGE: 

STATE = RULES! 1,2) ; ^ 

IF RUL E S ! 1,3) = '£ ' THEN DO; 

LPDA = SUBSTR(WLPDA,2) ; 

GO TO RIGHT; 

I F°RULF S ! I , 3 ) = '££' THEN DO; 

LPDA = •#' | | SUBSTR(WLPDA,3) ; <T o liIt 

RPDA=SUBSTR(WLPDA,2,I)!I SUBS TR! RULES! I, 4), 3, I) II 
SUBSTR! WRPDA, 2) ; 

GO TO machine; 

LPDA = SUBSTR!RULES ( I ,3 ) , 1 , INDEX! RULES! I , 3 ) , ' 
SUBSTR(WLPDA,2) ; 

RIGH IF RULES (1,4) = '£ 1 THEN DO; 

RPDA = SUBSTR! WRPDA, 2 ) ; 

GO TO MACHINE; 

RPDA = SUBSTR! RUL ES( I ,4) ,1 , INDEX! RULES ( I ,4) , ' 

SUBSTR! WRPDA, 2) ; 

GO TO machine; 

EPSILON: 



1 )-l) ! I 



' )-D I I 



/❖ EPSILON TAKES THE REQUIRED ACTION FOR PDA WITH 
EPSILON RULES. 

RPDA =_WRPDA; 

LPDA E = = SUBSTR(RULE^( I ,3) ,1, INDEX! RULES! 1,3), 1 ' )-l) I I 

SUBSTR! WLPDA, 2) ; 

GO TO MACHINE; 



/* WHFN THFRE ARE NO LONGER ANY APPLICABLE RULE 
7 TO APPLY TO A STRING, STUCK IS THE ROUTINE 
WHICH DETERMINES WHETHER THE STRING IS TO 
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RF ACCEPTED OR REJECTED, OR IN THE CASE OF 
the PTM, THAT THE FINAL* CONFIGURATION IS 

tobe OUTPUT. THE CHECK for acceptance IS 
MADE BY CHECKING TO SEE THAT THE ENTIRE 
INPUT STRING HAS BEEN PROCESSED AND THAT THE 
FINITE CONTROL IS IN A FINAL STATE OR FOR THE 
PDA WITH EMPTY STORE, THAT THE LEFT STACK IS 
EMPTY. ' 



STUCK: 

IF 



I PRO = 1 THEN DO; 
I CHK = o; 

GO TO PROD; 

IF N TRPD = * S' I TRP D = 
IF TYPE = ' FA • 
IF TYPE = 'PDA' 



CHKST : 



END; 
DO I 

end; 



'#• THEN DO; 

THEN GO TO CHKST; 
kc = ■ r u m ■ THEN DO; ct . 

IF NEMP1Y = 0 THEN GO TO CHKST, 
IF TLPD = 'S' THEN GO TO POS; 

GO TO NEG; 



= i TO nf; 
IF STATE = 



FNST ( I ) THEN GO TO POS; 



NEG: 



POS: 



END; 

DI SPLAYt ' STRING NOT ACCEPTED'); 
GO TO RERUN; 

DI SPLAY( ' STRING IS ACCEPTED'); 



/* 



create ^ T e-^8t E !n^ T ^{ V ch^1:? 0 ow:f^ L Ue AND 
TERM^NAL^SESsIoN i ^STORING ACH INE AWAY IN 
MEMORY, R or R CREATING F A 

Sption E oPhaving E the’rules U fcr that™achine 

PRINTED OUT EXACTLY AS THE HERE INPUT. 



*/ 



RERU DISPLAY(<TRY another string? iy or np> replyique) ; 
IF QUE = 'Y' THEN DO; 

FIRT = ' FIRST'; 

GO TO REPLAY; 

JERQUE -«='N' THEN GO TO RERUN; 

DISPLAY! 'WANT TO QUIT? (Y OR NPt REPLY ( QUE) ; 

IF QUE = * Y ' THEN GO TO FIM, 

IF QUE -»= *N' THEN GO TO QUITS; 

DISPLAY! 'WANT TO STORE PRESENT MACHINE? !Y OR NP) 

I EP QUE Q = E '^' THEN GO TO RETRIEVE; 

IF QUE -= *Y* THEN GO TO STOW; 

DISPLAY ! ' GIVE A NAME TO THIS MACHINE') REPLYtNAMEP 
IF NAME = ' ' THEN GO TO NAMIT, 

IF IFIRST = 1 THEN GO TO NXT_NOD_, 

ALLOCATE STORED SET ( FIRST) ; 

FIRST->SRULES “ 



- i 

- t 



FIR ST— >SRUL E 
F I RST->FNST S ^ - 

F IRST-> I PO = IPRO; 

F I RST->NAMES = NAME; 
F I RST->TYP ES = TYPE; 
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FIR ST— >RST AT ES = RSTATE; 

F IRST— >NDET = NOND; 

f!rIt->nemptys = NEMPTY; 

&i R f T ;T?0 = 5 8 U lihiLE(RULESU,H-' 

00 K F IRST->SRULES( I iK) = RULES! I, K); 

end; 



1 ) ; 



RULE! I ) ; 
FNST! I ) ; 



FIRST->SRULE! I ) 

END; 

DO I = 1 TO NF ; 

FIRST->FNSTS( I ) 

END; 

I F IRST = 1; 

TT = F IRST ; 

GO TO RETRIEVE; 

NXT- AL LOCATE STORED; , , 

P— >SRULES = 1 ' ; 

P->SRULE= 1 '; 

P— >FNST s = 1 1 ; 

TT->NXT = P; 

TT = p; 

p— > I PO = I PRO; 

P— > NAMES = NAME ; 

P— >TYPES = TYPE; 

P->NDET = NOND; 

P— >LEFTS = LEFT; 

P->RSTATE S = RSTATE; 

P-> NEMPTY S = NEMPTY; 

g5 > ? X I T TO L 50 WHILE! RULES! I »l)^ =l 

00 K P->SRULeI( I,K) = RULES ( I » K ) » 

P— >SRULE ( I ) = RULE! I); 

end; „ 

00 1 P->FNSTSU) = FNST (It; 

end; 

RETR displaycwant to retrieve 

IF P buE°= E '^’ THEN GO TO CREATE; 

^SPLAyT-gIvE NAME OF MACHINE* ) V R^PLY(NAME) ; 
TT = FIRST; 

LOOKER jt->NAMES = NAME THEN GO TO FILL; 

IF TT B^^LAY('NO L SUCH N MACAlNE IN STORAGE-); 

GO TO retrieve; 
end; 

TT = tt->nxt; 

GO TO look; 

FILL? type = TT->TYPES; 

RSTATE = TT->RST ATES ; 

NOND = TT->NDET; 

LEFT = TT->LEFTS; 

DO M I T = I TO 50 E WHILE!TT->SRULES( It 1 )-=* 
00 K RULES? it^ ) = TT->SRULES(I.K»; 
Iffiid, = TT->SRULE( I ) ; 

DO°fl = 1 TO 10 WH I LE ( TT— >FN ST S ( N ) -= ’ 



1 ) ; 



MACHINE? ( Y OR N) 1 ) 



• ) 



end; 



FNST(N) = TT->FNSTS!N) ; 
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DISPLAY! 'WANT THE RULES DISPLAYED? (Y OR N)') 
RE PL Y ( QUE ) ; 

IF QUE = * N ' THEN GO TO RESTART; 

DO N = 1 TO I— 1 ; 

NUM = N; 

DISPLAY ( NUM | | ': ' | I RULE( N ) ) ; 



END; 

GO TO RESTART; 

CREATE : 

DISPLAY! ' WANT TO CREATE A NEW MACHINE? 
RE PLY (QUE) ; 

IF QUE = ' Y ' THEN GO TO GETTING; 

IF QUE -.= ' N • THEN GO TO CREATE; 



( Y OR N) • ) 



NONDET: proc; 



/* 



IF 



NONDET IS THE PROCEDURE WHICH OPERATES ON 
THE NONDETERMINI STIC AUTOMATA. 



*/ 



ITRACE = 2 THEN DO; 

IF TYPE = 'PDA* THEN DISPLAY 
(• NODE STATE PUSHDOWN 

' I NPUT STRING' ) 

TYPE = 'FA 



IF 
( ' 
IF 
( ■ 



NODE 
TYPE = 'TM 
NODE 



I I 



THEN DISPLAY 

STATE INPUT STRING' ) *, 

' THEN DISPLAY 
STATE TAPE ')*, 



end; 

DCL I NODE BASED! B ) , 

/* NODE IS THE STRUCTURE FOR EACH NODE OF THE 
TREE WHICH IS CONSTRUCTED TO SOLVE THE NON- 
DETERMINISTIC CASE. */ 



IGOOD = 



S_ST AT E CHAR ( 3 ) , 

S PDA CHAR ( 200 ) * 
S~RUL E PICTURE *Z9', 
PUSIT FIXED BINARY, 
NEXT PTR, 

UP PTR; 



ALLOCATE NODE SET(ROOT); 

/* THE ROOT NODE IS COMPRISED OF THE START STATE, 

START SYMBOL, IF ANY, AND THE INPUT STRING. 

THIS IS THE INITIAL CONFIGURATION. */ 

ROOT— >S_ST ATE = STATE; 

ROOT— >S_PDA = L PDA | | RPDA ; 

ROOT— >S_RUL E = 0; 

ROOT— >POS I T = LENGTH! LPDA) ; 

ROOT— >N EXT = NULL; 

ROOT— >UP = NULL; 

D = root; 

E = d; 

IF ITRACE = 2 THEN DO; 

IF TYP E= 'PDA* THEN DO; 

LPDOWN = SUBSTR! LPDA, 1 , 1 ) ; 11# 

RPDOWN = SUBSTR(RPDA,1, INDEX RPDA, 'C -1) ; 

DI SPLAY ( NODNO ! I ' • | | STATE | | • 'll 

LPDOWN | I RPDOWN ) ; 

END ; 

IF TYPE = 'FA • THEN DO; 

L PDOWN = ' ' : 

RPDOWN = SUBSTFURPDA, 1 , INDEXjRPDA, )-l j j 
DISPLAY ( NODNO I I ' • II STATE M • 'llRPD 

END; 

IF TYPE = 'TM ' THEN DO; 
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end; 



end; 



RPDOWN = SUBSTR(RPDA,1,INDEX(RPDA, •£' )-l) ; 

DI SPLAY ( NODNO I | ■ • I | STATE I I 1 ->' I I RPDOW 



TOP ' 



/* TOP CHECKS FOR ALL APPLICABLE RULES FOR A GIVEN 
MACHINE CONFIGURATION. EACH TIME ONE IS FOUND 
THE PROCEDURE CHARGE IS CALLED. UPON RETURN- 
ING FROM CHARGE EACH TIME, A CHECK IS MADE 
TO DETERMINE WHETHER ACCEPTANCE WAS OBTAINED. 

IF SO, THE PROPER PRINT ROUTINE IS CALLED AS 
REQUIRED. IF ACCEPTANCE HAS NOT BE OBTAINED 
AND NO APPLICABLE RULES REMAIN FOR A gJVEN 
CONFIGURATION, THEN THE NEXT NODE IS PROCESSED. 
IF NO NEW NODES REMAIN, THEN PROCESSING WILL 
TERMINATE AND A MESSAGE PRINTED. */ 



WLPDA = SUBSTR ( D->S_PDA, l,D->POSIT); 

WRPDA = SUBSTR(D->S_PDA,D->POSIT+l); 

TLPD = SUBS TR( WLPDA, 1,1) ; 

TRPD = SUBSTRIWRPDA.l ,1 ) ; _ 

CONFIG = D->S_.$TATE| ITLPDI ITRPD; 

D ° 1 I F ^ TYPE-*= 1 PDA 1 THEN GO TO NOT PDA ; 

IF SUBSTR (RULES! I ,1) ,5,1 ) = ■£' ™ OOl 

IF SUBSTR(RULES( 1,1), 1,3 = ?7 >S -|TATE THEN DO 

IF SUBSTR(RULES( 1,1 ),4, 1) = TLPD THEN CAL 

end; 

END; 

NOTPD A : 

IF RULES (1,1) = CONFIG THEN BEGIN; 

CALL CHARGE; ^ Tlir _ M 

IF TYPE = * TM 1 £ IPRO = C THEN DO; 

DO JJ = 1 TO NF; 

IF B-> S_ST ATE 



= FN ST ( JJ) THEN IGOOD 



end; 

END; 

IF IGOOD 



END; 



END; 



= 1 THEN BEGIN; 

IF ITRACE = 1 THEN CALL LINKUP; 
DISPLAY! ' STRING ACCEPTED'); 

return; 



if D d->next= null then begin; 

D I SP L AY ( 1 STR I NG NOT ACCEPTED'); 

RETURN ; 

END; 

D = D->NEXT ; 

IF N TsP[AYrMAX T NUMBER ; OF NODES EXCEEDED • ) 5 

D I SPLAY (' WANT TO CHANGE MAXIMUM? (Y OR N) ) 
REP LY ( QUE ) ; 

IF QUE = ' N ' THEN RETURN; 

MAX3: DISPLAYC WHAT IS NEW MAX?') REPLY ( MAXUM ) ; 

IF SUBSTR (MAXUM , 1 , 1 )< « 0 ' THEN GO TO MAX3; 
MAXNO = MAXUM; 

END; 

GO TO top; 



NONEPS: PROC; 

/* THE PROCEDURE NONEPS HANDLES THE EPSILON RULES 
FOR NONDETERMIN ISTIC PUSHDOWN AUTOMATA. */ 
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ALLOCATE NODE; 

NODNO = NODNO + 1; 

B->UP = D ; 

E->NEXT = B; 

B->NEXT = NULL; 

E = B; 

B->S_STATE = RULES ( I f 2 ) ; 

B->S_RUL E = I; 

RPDA = WRPDA; 

LPD A = SUBSTR(RULES( 1,3) ,1, I NDEX ( RUL E S ( 1 , 3 ) , • ')-l)|| 
SUBSTR ( WLPDA , 2 ) ; 

IF INDEX (LPDA,* £') -*=0 THEN DO; 

LPDA = SUBSTR(LPDA,1, INDEX(LPDA, •£' I — 1 } ; 

END; 

B->S PDA = LPDA | | RPDA; 

B->PUSIT = LENGTH ( LPDA) ; 

IF ITRACE = 2 THEN DO; 

LPDOWN = SUBSTR(LPDA, l , L ENGTH < L PDA ) ) ; 

RPD OWN = SUBSTR(RPDA,l y INDEX(RPDA,'£' )-l) ; 
DISPLAY(NODNO| | 1 1 j | b->S_STATE| | • 'll 

LPDOWN I | RPDOWN ) ; 



END; 

END NONEPS; 



CHARGE: PROC; 



/* CHARGE ALLOCATES A NEW NODE FOR EACH APPLICABLE 
RULE FOR SOME PARTICULAR CONFIGURATION. IT 
OOES THIS IN MUCH THE SAME MANNER AS WAS 
DONE IN THE DETERMINISTIC CASE. A CHECK IS 
ALSO MADE FOR ACCEPTANCE AT THIS LEVEL. IF 
THE USER HAD SELECTED TO SEE ALL OF THE NODES 
DISPLAYED AS THEY ARE ALLOCATED, THIS IS THE 
SECTION WHICH WILL CAUSE THE PRINTOUT. */ 



ALLOCATE NODE; 

NODNO = NODNO + I; 

B->UP = D; 

E->NEXT = B; 

B->NEXT = NULL; 

E = b; 

B->S_STATE = RULES (1,2); 

B->S RULE = I; 

IF RULES (1,3) = 'C ' THEN DO; 

LPDA = SUBSTR(WLPDA,2) ; 

GO TO CIGHT; 

END; 

IF RULES (1,3) = 'EC THEN DO; 

LPDA = '#« | | SUBSTRI WLPDA.3 I ; 

RPDA = SUBSTR(WLPDA,2,1 ) I | SUBSTR( RULES ( 1,4), 3, 1) 
SUBSTR(WRPDA,2) ; 

GO TO cachine; 

END; 

LPDA = SUBSTR(RULES( I ,3) ,1 , INDEX! RULE S ( I ,3) , ' ')-I)ll 

SUBSTR ( WLPDA , 2 ) ; 

CIGHT: 

IF RUL E S ( I , 4 ) = ' £ ' THEN DO; 

RPDA = SUBSTR(WRPDA,2) ; 

GO TO CACHINE; 

END; 

RPDA = SUBSTR(RULES( I f 4) f 1 f I NDEX ( RULES ( I f 4 ) , ' ')-l)|l 
SUBSTR( WRPDA, 2) ; 

CACHINE: 

B->S PDA = LPDA! | RPD A ; 

B->PUSIT = LENGTH(LPDA) ; 

TLPDN = SUBSTR(LPDA,I,1) ; 

TRPDN = SUBSTRIRPDA, 1, I) ; 

IF TRPDN = ' £ ' | TRPDN= THEN DO; 
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IF TYPE = 'FA ' THEN GO TO CKST ; 

IF TYPE = 'PDA' THEN DO; 

IF NEMPTY = 0 THEN GO TO CKST; 

IF TLPDN = 'S' THEN IGOOD = i; 

END; 

NODOUT: 

IF ITR if E su8STrVI->S°P0A,1 , I )=• S' THEN LPOOWN =' 6'* 

RPDOWN = SUBSTR(B->S PDA , 8->POS IT + 1 ) ; 

IF SUBS TR( RPDOWN, 1,1 T='G' I SUB S T R ( RPDOWN , 1 , 1 )= *' 

RPDOWN P =°SUBSTR( RPDOWN, 1 , INDEX! RPDOWN , • G • )-l > ; 

IF TYPE = 'FA ' THEN DO; 

LPDOWN = ' ' ; , 

DI SPLAY ( NODNO I I ' 

RPDOWN ) ; 

RETURN; 

END ; 

IF TYPE = 'PDA' THEN DO; 

DI S P L AY ( NODNO | i ' 

LPDOWN | | RPDOWN) ; 

RETURN; 

TF^TYPE = 'TM ' THEN DO; 

X = SUBSTRI LPDOWN ,2 , I NDEX( LPDOWN , ' 

LEN = LENGTH(X); 

DO L = I TO LEN/2; 

SUBSTR ( xIl! 1 ) L ^ L SUBSTR(X,LEN-L+1t 1 ) ? 
SU8STR(X,LEN-L+1,1) = T; 

X N = * SUBSTR( X , INDEX (X, '&')+!); 

I ! RP ° aW 5 , ita->S_STATEM- • 

return; 



' | 1 8-> S_S T AT E | | ' 



' | | 8->S_ST AT E I I ' 



I I 



• )-i> ; 



IT 



CKST: 



END; 



end; 

DO L 



IF B->S_StAtE = FNST(L) THEN IGOOD = 15 

END; 

IF°!tRACE = 2 THEN GO TO NODOUT; . 

END CHARGE; 



LINKUP: PROC; 



/* LINKUP IS THE PROCEDURE BY WHICH 
THE SOLUTION PATH THROUGH THE TRE 
THE TREE IS TRAVERSED FIRST FROM 
NODE TO THE ROOT, BY ( ^! ANS .9 F ™ E 
TO THE PREDECESSOR NODE. AS THE 
TRAVERSED IN THIS MANNER, THE POI 
REVERSED UNTIL THE ROOT NODES IS 
THIS TIME, THE TREE IS TRAVERSED 
ROOT TO THE SOLUTION NODE, PRINT! 
NODE ALONG THE WAY. THE 
IN THE FORM CORRESPONDING TO THE 
MACHINE WHICH THE USER HAD SPECIF 



A PRINTOUT OF 
E IS MADE. 

THE SOLUTION 
POINTERS 
TREE IS 
NTERS ARE 
REACHED. AT 
FROM THE 
NG OUT EACH 
WILL BE 
TYPE OF 
I ED . */ 



NC = o; 

D->NE XT = E; 

IF~D->UP = NULL THEN GO TO ST ARTDOWN ; 
D = d->up; 

GO TO LINK; 
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I e^-' 



STARTDOWN: e = , FA , THEN G0 TQ p A DOWN ; 

IF TYPE = 'PDA' THEN GO TO PD 7 LDOWN; 

IF TYPE = • TM • THEN GO TO TM__DOWN; 

return; 

FA “ D RP06wN = SUBSTR ( 0->S_PD A t 0-> POS IT + 1 ) * 

RPDOWN = SUBSTR(RPDOWN,l»INDEX RPDOWN, a )-i), 
DISPLAYING! | « • I I D->S_RULE| I s *1 |D->S_STATE| | 

• • I 1 RPDOWN ) ; _ 1T 

IF D->NE XT = NULL THEN GO TO OUT; 

D = d->next; 

NC = NC + i; 

GO TO FA_DOWN; 

P DA-iF W SUBSTR(D->S_PDA,ltl) = JHtEN LPDOWN = • S'; 

• a. nf 8 • 

?F°$UBSTR ^RPDOWN? 1 ^ 17 ^= a 1 1 SUBST R I RPDOWN , 1 , i) = 

RPDOWN P = °SUBSTR( RPDOWN t 1 • I NfjEX( RPDOWN , •£' ; , TATE| , 

DISPLAYING! I • 1 I |D->S_RULE| | ' * I |D->S_STA1 I 

• • | | LPDOWN I I RPDOWN ) ; ^ 

IF D->NE XT = NULL THEN GO TO OUT; 

D = D->NEXT; 

NG = NC + i; 

GO TO PDA_DOWN; 

™ _D RPD0WN = SUBSTRID— >S_PDA,D->POSIT+l) 5 

RPDOWN = SUBSTRI RPDOWN » 1 i I NDEX I RPDCWN » 1 G )-l)» 

X = SUBSTR(D-> S_P D A, 2 ,D->P 0 SIT) ; 

LEN = LENGTH I X ) ; 

DO I = 1 TO LEN/ 2 ; 

SUBSTR?xIl ! 1 ) I = 1 SUBSTR(X,LEN-I + I t 1 ) ; 

SUBSTR I X, LEN- I + 1 1 1 ) = T; 

X N =’ SUBSTRIXf INDEX (X , ' a* ) ) ; 

X = SUBSTR I X , 2 ) ; 

r ' 1 lRP ??fS4s_WLEI I ' Ml °->S_ST«TE | | 

i • i tapf ; 

IF D->NEXT‘= NULL THEN GO TO OUT; 

D = D->NEXT; 

NC = NG + l; 

GO TO tm_down; 

OUT : 

END LINKUP; 

FINI: END GOLD; 
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